﻿Module Modulo
    Public coneccion As ADODB.Connection
    Public Resultado As String
    Public instancia1 As New frmPlatillos
    Public instancia2 As New frmpedido
    Public instancia3 As New frmreservacion
    Public direccion As String = "C:\111.accdb"
    Public Sub conectar()
        coneccion = New ADODB.Connection
        coneccion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & direccion
        coneccion.Open()
    End Sub
End Module
